#print ('my first R script')
#load the file raw stats ignoring header data
#assign the data read into a variable 'perf data',   ?plot - help page for plot
perf_data <- read.table('raw_stats.dat', TRUE)
# plotting data of column from X.idle
plot(100-perf_data[, 'X.idle'], type='b', xlab='Time in Seconds', ylab='% Utilization (U_I)')
#mean of X.idle
u_i <- mean(100-perf_data[, 'X.idle'])
# dividing by throughput
d_i <- u_i/ 94
#R script



